home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / util / cdity / DM_dynAMIte.lha / DM_dynAMIte / Install < prev    next >
Text File  |  2002-06-21  |  3KB  |  75 lines
  1. ;
  2. ; DepthMenu module install script
  3. ; Copyright © 2001 Arkadiusz [Yak] Wahlig
  4. ;
  5. ; $VER: DepthMenu_Module_Install 1.00 (21.06.2001) Arkadiusz [Yak] Wahlig
  6. ;
  7.  
  8. (set #app-ver "1.3")
  9. (set #copyright "Copyright © 2001-2002 Arkadiusz [Yak] Wahlig")
  10.  
  11. (IF (= @LANGUAGE "polski")
  12. (
  13.  (set #msg-powitanie (cat "\n\n\n" @app-name " " #app-ver "\nModuî programu DepthMenu\n" #copyright "\n\n\n\nTen skrypt zainstaluje moduî " @app-name "\nna twoim dysku twardym.") )
  14.  (set #msg-koniec "\n\nInstalacja zakoïczona pomyôlnie!\n\nDziëkujë za zainstalowanie moduîu.\n\n\n\nJeôli DepthMenu jest uruchomiony to\nmoduî znajduje sië juû w pamiëci.")
  15.  
  16.  (set #katalog-pytanie "Gdzie zainstalowano program DepthMenu?")
  17.  (set #katalog-pomoc "Wybierz katalog, w którym zainstalowaîeô/aô program DepthMenu (w którym znajduje sië podkatalog 'DepthMenu'). Zostanie tam zainstalowany moduî wraz z potrzebnymi plikami.")
  18.  
  19.  (set #jezyk-pytanie "Które katalogi jëzykowe chcesz zainstalowaê?")
  20.  (set #jezyk-pomoc "Moduî posiada wbudowany jëzyk angielski. Jeôli chcesz aby uûywaî innego jëzyka, zaznacz go na tym ekranie a póúniej ustaw jëzyk go jako preferowany w systemowych ustawieniach Locale.")
  21. ))
  22. (IF (= @LANGUAGE "english")
  23. (
  24.  (set #msg-powitanie (cat "\n\n\n" @app-name " " #app-ver "\nDepthMenu external module\nCopyright © 2001-2002 Arkadiusz [Yak] Wahlig\n\n\n\nThis script will install " @app-name "\non your hard-disk.") )
  25.  (set #msg-koniec "\n\nInstallation successful finished!\n\nThank you for installing module.\n\n\n\nIf DepthMenu is running then\nmodule is already in memory.")
  26.  
  27.  (set #katalog-pytanie "Where did you install the DepthMenu program?")
  28.  (set #katalog-pomoc "Choose a directory, where the DepthMenu program was installed (where is a 'DepthMenu' directory). The installer will copy all needed files there.")
  29.  
  30.  (set #jezyk-pytanie "Which catalogs should be installed?")
  31.  (set #jezyk-pomoc "Module's built-in language in english. If you want it to use some other languale you got to choose it now and set it as prefered in your Locale preferences program after installation.")
  32. ))
  33.  
  34. (user 2)
  35.  
  36. (complete 0)
  37. (message #msg-powitanie)
  38.  
  39. (set katalog
  40.  (askdir
  41.   (prompt #katalog-pytanie)
  42.   (help #katalog-pomoc)
  43.   (default "Work:")
  44.   (disk)
  45.  )
  46. )
  47.  
  48. (set instdir (tackon katalog "DepthMenu"))
  49.  
  50. (complete 25)
  51. (if (exists "Catalogs")
  52.  (
  53.   (copyfiles
  54.    (source "Catalogs")
  55.    (dest (tackon instdir "Catalogs"))
  56.    (infos)
  57.    (pattern "~(#?.cd)")
  58.    (prompt #jezyk-pytanie)
  59.    (help #jezyk-pomoc)
  60.    (confirm)
  61.   )
  62.   (copyfiles (source "Catalogs") (dest (tackon instdir "Catalogs")) (pattern "#?.cd#?"))
  63.  )
  64. )
  65.  
  66. (complete 50)
  67. (copyfiles (source "Docs") (dest (tackon instdir "Docs")) (all))
  68.  
  69. (complete 75)
  70. (copyfiles (source "Modules") (dest (tackon instdir "Modules")) (all))
  71.  
  72. (complete 100)
  73. (exit #msg-koniec (quiet))
  74. (welcome "")
  75.